home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / docdem.arc / MATH.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-20  |  860b  |  26 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Pascal for Windows                     }
  4. {   Demo DLL interface unit                      }
  5. {   Copyright (c) 1991 by Borland International  }
  6. {                                                }
  7. {************************************************}
  8.  
  9. unit Math;
  10.  
  11. interface
  12.  
  13. function Power(X, Y: Real): Real;
  14. function Payments(Period, Interest, Term, Principal: Real): Real;
  15. function Principals(Payment, Period, Interest, Term: Real): Real;
  16. procedure WriteError(Window: Word; ErrorMessage: PChar);
  17.  
  18. implementation
  19.  
  20. function Power;         external 'MathDll' index 1;
  21. function Payments;      external 'MathDll' index 2;
  22. function Principals;    external 'MathDll' index 3;
  23. procedure WriteError;   external 'MathDll' index 4;
  24.  
  25. end.
  26.